vb中cls是什么意思(用VB如何编写程序对一组数组求最值)
资讯
2023-12-03
6
1. vb中cls是什么意思,用VB如何编写程序对一组数组求最值?
1、在这里我们通过编写程序找出10个数中的最大值与最小值。打开vb6.0,新建一个标准EXE
2、在属性窗口将Form1的Caption属性改成”数组求最值“
3、接着编写一个窗体的单击事件,代码如下:
Option Explicit
Option Base 1
Private Sub Form_click()
Dim a(), x, max, min, i%, n%
a = Array(45, 98, 79, 90, - 23, 45, 67, 89, 75, 109)
n = UBound(a)
Print "数组的数据为:"
For i = 1 To n
Print a(i)
Next i
Print
max = a(1): min = a(1)
For i = 2 To n
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Print "最大值为:"; max; "最小值为:"; min
End Sub
4、根据代码,点击运行,单击窗体程序运行的结果如图
5、下图中用红圈标识出的,就表示在这组数组中将第一个数赋值为max或者min,然后逐次与后面的进行比较如果遇到比它大或者小就把这个数赋值给max或者min.
6、接着我们可以修改代码中的数据(300, 205, 561, 156, 789, 456, 123, 423, 258, -147),然后再来运行一下程序。
2. vb工程怎么保存?
最好为这个工程建个文件夹,点击保存工程,工程文件的后缀为:.vbp。
文件名显示在工程文件窗口的标题栏中。
包含下列三类主要文件:
窗体文件(.Frm):存储窗体上使用的所有控件对象、属性、事件过程及程序代码。
标准模块文件(.Bas):所有模块级变量和用户自定义的通用过程。
类模块文件(.Cls):可建立用户自己的对象,类模块包含用户对象的属性和方法不含事件代码。
后面的都按确定,要跟工程名字一样。
全都确定的程序可以点文件--生成工程*.exe,以后就直接可以打开运行了,关于生成文件的其他描述图片之类 可以在 工程-工程1属性--生成 里面详细设置!
3. vb中的text文本框怎么用cls清除?
在VB中,使用text文本框时,可以使用cls方法来清除文本框中的内容。
cls方法可以在代码中直接调用,例如Text1.cls,其中Text1为文本框的名称。调用cls方法后,文本框中的所有内容将被清除,文本框将变为空白状态。使用cls方法可以方便地清除文本框中的内容,以便下一次的使用。在编写VB程序时,清除文本框内容是常见的操作之一,因为从用户的角度来看,清除文本框内容是一种重要的交互方式,可以让用户更方便地输入新的信息。因此,掌握如何使用cls方法是编写VB程序的基本技能之一。
4. VB应用程序中标准文件的扩展名是?
VB的应用程序是由扩展名为.vbp,.frm,.frx,.bas和.cls等几种类型的文件组成 工程文件(.vbp) 窗体文件(.frm) 窗体的二进制数据文件(.frx) 标准模块文件(.bas) 类模块文件(.cls) VB的文件还可包括ActiveX控件的文件(.ocx)以及单个资源文件(.res),使用VB的专业版和企业版,还可以创建其他类型的可执行文件,例如.ocx和.dll文件。
5. 用VB编写CAD绘图插件?
操作步骤:
一、创建一个ACTIVEX DLL cadPro工程二、添加一个模块命名为ModCad.代码如下Public acadApp As ObjectPublic acadDoc As Object(这里建立一个新块主要是为了以后在多个窗体、类或者多个工程中可以调用)二、添加一个类ClsTest代码如下:
Public Function MenuMain(MenuIndex As Integer) '下面的判断在VB中测试的时候可以用到,在生成DLL后VBA调用时可注释 If ModCad.acadApp Is Nothing Or ModCad.acadDoc Is Nothing Then ConnectToAcad setApp ModCad.acadApp setDoc ModCad.acadDoc End If Select Case MenuIndex Case 1 AutoCADTest Case 2 End SelectEnd FunctionPublic Function ConnectToAcad() On Error Resume Next Set ModCad.acadApp = GetObject(, "AutoCAD.Application.16.2") '16.2是CAD的版本 If Err Then Err.Clear Set ModCad.acadApp = CreateObject("AutoCAD.Application.16.2"
) End If If Err Then Err.Clear Set ModCad.acadApp = GetObject(, "AutoCAD.Application"
) If Err Then Err.Clear Set ModCad.acadApp = CreateObject("AutoCAD.Application"
) End If If Err Then Unload Me End If End If ModCad.acadApp.Visible = True Set ModCad.acadDoc = ModCad.acadApp.ActiveDocumentEnd FunctionPublic Function setApps(acadObj As AcadApplication) Set ModCad.acadApp = acadObj Set ModCad.acadDoc = acadApp.ActiveDocumentEnd Function'VB中要在CAD中实现的功能Private Function AutoCADTest() Dim cadLine As AcadLine Dim cadPoint As Variant cadPoint = ModCad.acadDoc.Utility.GetPoint(, "请选取一个插入点:") ModCad.acadDoc.ModelSpace.AddCircle cadPoint, 5End Function三、如果要在VB中调试,在添加一个EXE工程,引用ACTIVEX工程,添加一个窗体,在窗体上添加一个按钮,Private Sub Command1_Click() Dim Rec As New cadPro.MenuMain Rec.MenuMain 1 End Sub四、生成DLL文件在VBA中调用。在工具----设定引用项目中加入生成的DLL。代码如下:
Option ExplicitPrivate clsGre As New cadPro.ClsTestPublic Sub cadtest() On Error Resume Next clsGre.setApp ThisDrawing.Application clsGre.MenuMain 1 End Sub按照以上四个步骤就可实现VB与AutoCAD的连接。以上程序在本机测试通过。OS:winxp sp2 chtAuotCAD Version:AutoCAD 2006
6. 求一个简单的vb小游戏制作代码?
贪吃蛇Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim C As LongIf KeyCode = 27 Then EndIf KeyCode = 32 ThenIf Timer1.Enabled = True ThenTimer1.Enabled = FalseLabel1.Visible = TrueElseTimer1.Enabled = TrueLabel1.Visible = FalseEnd IfEnd IfC = UBound(She)If GFangXiang = True Then Exit SubSelect Case KeyCodeCase 37If She(C).F = 2 Then Exit SubShe(C).F = 0GFangXiang = TrueCase 38If She(C).F = 3 Then Exit SubShe(C).F = 1GFangXiang = TrueCase 39If She(C).F = 0 Then Exit SubShe(C).F = 2GFangXiang = TrueCase 40If She(C).F = 1 Then Exit SubShe(C).F = 3GFangXiang = TrueEnd SelectEnd SubPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.BackColor = &HC000&Me.FillColor = 255Me.FillStyle = 0Me.ScaleWidth = 24Me.ScaleHeight = 24Me.WindowState = 2Set Timer1 = Controls.Add("VB.Timer", "Timer1")Set Label1 = Controls.Add("VB.Label", "Label1")Label1.AutoSize = TrueLabel1.BackStyle = 0Label1 = "暂停"Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50ChuShiHuaEnd SubPrivate Sub Form_Resize()On Error GoTo 1:With MeIf .WindowState <> 1 Then.Cls.ScaleMode = 3HWB = .ScaleHeight / .ScaleWidth.ScaleWidth = 24.ScaleHeight = 24Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2HuaTuMe.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd IfEnd With1:End SubPrivate Sub Timer1_Timer()Dim C As Long, I As LongOn Error GoTo 2:QingChuC = UBound(She)Select Case She(C).FCase 0If ZhuangTai(She(C).X - 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X - 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 1If ZhuangTai(She(C).X, She(C).Y - 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y - 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 ThenGoTo 2:End IfCase 2If ZhuangTai(She(C).X + 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X + 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 3If ZhuangTai(She(C).X, She(C).Y + 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y + 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 ThenGoTo 2:End IfEnd SelectZhuangTai(She(0).X, She(0).Y) = 0For I = 0 To CSelect Case She(I).FCase 0She(I).X = She(I).X - 1Case 1She(I).Y = She(I).Y - 1Case 2She(I).X = She(I).X + 1Case 3She(I).Y = She(I).Y + 1End SelectNextTiaoZheng1:GFangXiang = FalseZhuangTai(She(C).X, She(C).Y) = 1HuaTuExit Sub2:If MsgBox("游戏结束,点“是”重新开始游戏,点“否”", vbYesNo, "贪吃蛇") = vbYes ThenChuShiHuaElseEndEnd IfEnd SubPrivate Sub ChuShiHua()Me.ClsTimer1.Enabled = TrueTimer1.Interval = 200Erase ZhuangTaiReDim She(2)She(0).F = 2She(0).X = 9She(0).Y = 11ZhuangTai(9, 11) = 1She(1).F = 2She(1).X = 10She(1).Y = 11ZhuangTai(10, 11) = 1She(2).F = 2She(2).X = 11She(2).Y = 11ZhuangTai(11, 11) = 1HuaTuChanShengShiWuEnd SubPrivate Sub QingChu()Dim I As LongFor I = 0 To UBound(She)Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BFNextEnd SubPrivate Sub HuaTu()Dim I As LongFor I = 0 To UBound(She)Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWBNextEnd SubPrivate Sub TiaoZheng()Dim I As LongFor I = 0 To UBound(She) - 1She(I).F = She(I + 1).FNextEnd SubPrivate Sub ChanShengShiWu()Randomize Timer1:X = Int(Rnd * 24)Y = Int(Rnd * 24)If ZhuangTai(X, Y) > 0 Then GoTo 1:ZhuangTai(X, Y) = 2Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd Sub
7. vb中的基本控件哪些有clear方法哪些是cls方法?
只有窗体和图片框控件(PictureBox)才有Cls方法。Cls的意思是Clear Screen(清屏)的意思,是最早期的Basic语言就有的命令(以及Print、Line、PSet、Circle等等这些命令),其实它并不符合后来VB的命名习惯,但是为了保持兼容性才保留下来。
在实际的软件开发中,是很少用到Cls、Print、line等这样的方法的,因为它们不符合面向对象的设计理念,除非是特殊的比如绘图软件才需要用到这些。
列表框控件(ListBox)和组合框控件(ComboBox)则有Clear方法,意思是清除项目。这个则是符合现代编程理念的。
本站涵盖的内容、图片、视频等数据系网络收集,部分未能与原作者取得联系。若涉及版权问题,请联系我们删除!联系邮箱:ynstorm@foxmail.com 谢谢支持!
1. vb中cls是什么意思,用VB如何编写程序对一组数组求最值?
1、在这里我们通过编写程序找出10个数中的最大值与最小值。打开vb6.0,新建一个标准EXE
2、在属性窗口将Form1的Caption属性改成”数组求最值“
3、接着编写一个窗体的单击事件,代码如下:
Option Explicit
Option Base 1
Private Sub Form_click()
Dim a(), x, max, min, i%, n%
a = Array(45, 98, 79, 90, - 23, 45, 67, 89, 75, 109)
n = UBound(a)
Print "数组的数据为:"
For i = 1 To n
Print a(i)
Next i
max = a(1): min = a(1)
For i = 2 To n
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Print "最大值为:"; max; "最小值为:"; min
End Sub
4、根据代码,点击运行,单击窗体程序运行的结果如图
5、下图中用红圈标识出的,就表示在这组数组中将第一个数赋值为max或者min,然后逐次与后面的进行比较如果遇到比它大或者小就把这个数赋值给max或者min.
6、接着我们可以修改代码中的数据(300, 205, 561, 156, 789, 456, 123, 423, 258, -147),然后再来运行一下程序。
2. vb工程怎么保存?
最好为这个工程建个文件夹,点击保存工程,工程文件的后缀为:.vbp。
文件名显示在工程文件窗口的标题栏中。
包含下列三类主要文件:
窗体文件(.Frm):存储窗体上使用的所有控件对象、属性、事件过程及程序代码。
标准模块文件(.Bas):所有模块级变量和用户自定义的通用过程。
类模块文件(.Cls):可建立用户自己的对象,类模块包含用户对象的属性和方法不含事件代码。
后面的都按确定,要跟工程名字一样。
全都确定的程序可以点文件--生成工程*.exe,以后就直接可以打开运行了,关于生成文件的其他描述图片之类 可以在 工程-工程1属性--生成 里面详细设置!
3. vb中的text文本框怎么用cls清除?
在VB中,使用text文本框时,可以使用cls方法来清除文本框中的内容。
cls方法可以在代码中直接调用,例如Text1.cls,其中Text1为文本框的名称。调用cls方法后,文本框中的所有内容将被清除,文本框将变为空白状态。使用cls方法可以方便地清除文本框中的内容,以便下一次的使用。在编写VB程序时,清除文本框内容是常见的操作之一,因为从用户的角度来看,清除文本框内容是一种重要的交互方式,可以让用户更方便地输入新的信息。因此,掌握如何使用cls方法是编写VB程序的基本技能之一。
4. VB应用程序中标准文件的扩展名是?
VB的应用程序是由扩展名为.vbp,.frm,.frx,.bas和.cls等几种类型的文件组成 工程文件(.vbp) 窗体文件(.frm) 窗体的二进制数据文件(.frx) 标准模块文件(.bas) 类模块文件(.cls) VB的文件还可包括ActiveX控件的文件(.ocx)以及单个资源文件(.res),使用VB的专业版和企业版,还可以创建其他类型的可执行文件,例如.ocx和.dll文件。
5. 用VB编写CAD绘图插件?
操作步骤:
一、创建一个ACTIVEX DLL cadPro工程二、添加一个模块命名为ModCad.代码如下Public acadApp As ObjectPublic acadDoc As Object(这里建立一个新块主要是为了以后在多个窗体、类或者多个工程中可以调用)二、添加一个类ClsTest代码如下:
Public Function MenuMain(MenuIndex As Integer) '下面的判断在VB中测试的时候可以用到,在生成DLL后VBA调用时可注释 If ModCad.acadApp Is Nothing Or ModCad.acadDoc Is Nothing Then ConnectToAcad setApp ModCad.acadApp setDoc ModCad.acadDoc End If Select Case MenuIndex Case 1 AutoCADTest Case 2 End SelectEnd FunctionPublic Function ConnectToAcad() On Error Resume Next Set ModCad.acadApp = GetObject(, "AutoCAD.Application.16.2") '16.2是CAD的版本 If Err Then Err.Clear Set ModCad.acadApp = CreateObject("AutoCAD.Application.16.2"
) End If If Err Then Err.Clear Set ModCad.acadApp = GetObject(, "AutoCAD.Application"
) If Err Then Err.Clear Set ModCad.acadApp = CreateObject("AutoCAD.Application"
) End If If Err Then Unload Me End If End If ModCad.acadApp.Visible = True Set ModCad.acadDoc = ModCad.acadApp.ActiveDocumentEnd FunctionPublic Function setApps(acadObj As AcadApplication) Set ModCad.acadApp = acadObj Set ModCad.acadDoc = acadApp.ActiveDocumentEnd Function'VB中要在CAD中实现的功能Private Function AutoCADTest() Dim cadLine As AcadLine Dim cadPoint As Variant cadPoint = ModCad.acadDoc.Utility.GetPoint(, "请选取一个插入点:") ModCad.acadDoc.ModelSpace.AddCircle cadPoint, 5End Function三、如果要在VB中调试,在添加一个EXE工程,引用ACTIVEX工程,添加一个窗体,在窗体上添加一个按钮,Private Sub Command1_Click() Dim Rec As New cadPro.MenuMain Rec.MenuMain 1 End Sub四、生成DLL文件在VBA中调用。在工具----设定引用项目中加入生成的DLL。代码如下:
Option ExplicitPrivate clsGre As New cadPro.ClsTestPublic Sub cadtest() On Error Resume Next clsGre.setApp ThisDrawing.Application clsGre.MenuMain 1 End Sub按照以上四个步骤就可实现VB与AutoCAD的连接。以上程序在本机测试通过。OS:winxp sp2 chtAuotCAD Version:AutoCAD 2006
6. 求一个简单的vb小游戏制作代码?
贪吃蛇Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim C As LongIf KeyCode = 27 Then EndIf KeyCode = 32 ThenIf Timer1.Enabled = True ThenTimer1.Enabled = FalseLabel1.Visible = TrueElseTimer1.Enabled = TrueLabel1.Visible = FalseEnd IfEnd IfC = UBound(She)If GFangXiang = True Then Exit SubSelect Case KeyCodeCase 37If She(C).F = 2 Then Exit SubShe(C).F = 0GFangXiang = TrueCase 38If She(C).F = 3 Then Exit SubShe(C).F = 1GFangXiang = TrueCase 39If She(C).F = 0 Then Exit SubShe(C).F = 2GFangXiang = TrueCase 40If She(C).F = 1 Then Exit SubShe(C).F = 3GFangXiang = TrueEnd SelectEnd SubPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.BackColor = &HC000&Me.FillColor = 255Me.FillStyle = 0Me.ScaleWidth = 24Me.ScaleHeight = 24Me.WindowState = 2Set Timer1 = Controls.Add("VB.Timer", "Timer1")Set Label1 = Controls.Add("VB.Label", "Label1")Label1.AutoSize = TrueLabel1.BackStyle = 0Label1 = "暂停"Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50ChuShiHuaEnd SubPrivate Sub Form_Resize()On Error GoTo 1:With MeIf .WindowState <> 1 Then.Cls.ScaleMode = 3HWB = .ScaleHeight / .ScaleWidth.ScaleWidth = 24.ScaleHeight = 24Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2HuaTuMe.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd IfEnd With1:End SubPrivate Sub Timer1_Timer()Dim C As Long, I As LongOn Error GoTo 2:QingChuC = UBound(She)Select Case She(C).FCase 0If ZhuangTai(She(C).X - 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X - 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 1If ZhuangTai(She(C).X, She(C).Y - 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y - 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 ThenGoTo 2:End IfCase 2If ZhuangTai(She(C).X + 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X + 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 3If ZhuangTai(She(C).X, She(C).Y + 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y + 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 ThenGoTo 2:End IfEnd SelectZhuangTai(She(0).X, She(0).Y) = 0For I = 0 To CSelect Case She(I).FCase 0She(I).X = She(I).X - 1Case 1She(I).Y = She(I).Y - 1Case 2She(I).X = She(I).X + 1Case 3She(I).Y = She(I).Y + 1End SelectNextTiaoZheng1:GFangXiang = FalseZhuangTai(She(C).X, She(C).Y) = 1HuaTuExit Sub2:If MsgBox("游戏结束,点“是”重新开始游戏,点“否”", vbYesNo, "贪吃蛇") = vbYes ThenChuShiHuaElseEndEnd IfEnd SubPrivate Sub ChuShiHua()Me.ClsTimer1.Enabled = TrueTimer1.Interval = 200Erase ZhuangTaiReDim She(2)She(0).F = 2She(0).X = 9She(0).Y = 11ZhuangTai(9, 11) = 1She(1).F = 2She(1).X = 10She(1).Y = 11ZhuangTai(10, 11) = 1She(2).F = 2She(2).X = 11She(2).Y = 11ZhuangTai(11, 11) = 1HuaTuChanShengShiWuEnd SubPrivate Sub QingChu()Dim I As LongFor I = 0 To UBound(She)Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BFNextEnd SubPrivate Sub HuaTu()Dim I As LongFor I = 0 To UBound(She)Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWBNextEnd SubPrivate Sub TiaoZheng()Dim I As LongFor I = 0 To UBound(She) - 1She(I).F = She(I + 1).FNextEnd SubPrivate Sub ChanShengShiWu()Randomize Timer1:X = Int(Rnd * 24)Y = Int(Rnd * 24)If ZhuangTai(X, Y) > 0 Then GoTo 1:ZhuangTai(X, Y) = 2Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd Sub
7. vb中的基本控件哪些有clear方法哪些是cls方法?
只有窗体和图片框控件(PictureBox)才有Cls方法。Cls的意思是Clear Screen(清屏)的意思,是最早期的Basic语言就有的命令(以及Print、Line、PSet、Circle等等这些命令),其实它并不符合后来VB的命名习惯,但是为了保持兼容性才保留下来。
在实际的软件开发中,是很少用到Cls、Print、line等这样的方法的,因为它们不符合面向对象的设计理念,除非是特殊的比如绘图软件才需要用到这些。
列表框控件(ListBox)和组合框控件(ComboBox)则有Clear方法,意思是清除项目。这个则是符合现代编程理念的。
本站涵盖的内容、图片、视频等数据系网络收集,部分未能与原作者取得联系。若涉及版权问题,请联系我们删除!联系邮箱:ynstorm@foxmail.com 谢谢支持!